home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / GAM / C-D / DM_3000 / DM 3000 / card_25062.txt < prev    next >
Encoding:
Text File  |  1988-06-06  |  2.6 KB  |  130 lines
  1. -- card: 25062 from stack: in
  2. -- bmap block id: 27451
  3. -- flags: 4000
  4. -- background id: 2604
  5. -- name: VINES
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global inventory
  9.   global pocketbook
  10.   put inventory into background field "ShowMe"
  11.   put pocketbook into background field "CountMe"
  12. end openCard
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=148 top=194 right=307 bottom=303
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: DOWN/TO/PROM
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   global stress
  30.   subtract 1 from stress
  31.   if stress = 0 then
  32.     put "The vine gives way and you plunge to your death." into Msg
  33.     wait 3 seconds
  34.     doMenu "Message"
  35.     visual effect dissolve slow
  36.     go to card "INTRO/1"
  37.   else
  38.     go to card id 9459
  39.   end if
  40. end mouseUp
  41.  
  42.  
  43.  
  44.  
  45. -- part 2 (button)
  46. -- low flags: 00
  47. -- high flags: 2000
  48. -- rect: left=149 top=70 right=181 bottom=303
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: UP/TO/ATRIUM
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   global stress
  60.   subtract 1 from stress
  61.   if stress = 0 then
  62.     put "The vine gives way and you plunge to your death." into Msg
  63.     wait 3 seconds
  64.     doMenu "Message"
  65.     visual effect dissolve slow
  66.     go to card "INTRO/1"
  67.   else
  68.     go to card id 4015
  69.   end if
  70. end mouseUp
  71.  
  72.  
  73.  
  74.  
  75. -- part 3 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=19 top=70 right=308 bottom=108
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: FIND/KEY
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   global inventory
  90.   if "key" is in inventory then
  91.     put "The vines are empty." into Msg
  92.     wait 3 seconds
  93.     doMenu "Message"
  94.   else
  95.     put "You find a small key." into Msg
  96.     wait 3 seconds
  97.     doMenu "Message"
  98.     put ", key" after inventory
  99.     put inventory into background field "ShowMe"
  100.   end if
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 4 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=390 top=33 right=45 bottom=402
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: TRAPDOOR
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   go to card "WIN"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part contents for background part 6
  125. ----- text -----
  126. You are carrying: empty multicorder
  127.  
  128. -- part contents for background part 8
  129. ----- text -----
  130. 0